home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / alph100p.zip / WOW.INT < prev    next >
Text File  |  1991-11-02  |  2KB  |  79 lines
  1. {$A+,B-,D-,E-,F+,G-,I-,L-,N-,O-,R-,S-,V-,X-}
  2.  
  3. Unit WOW;
  4.  
  5. (************************************************************************)
  6. (*                                                                      *)
  7. (*                              FEATURING                               *)
  8. (*                                                                      *)
  9. (*                    FUNCTIONAL DIRECT REPLACEMENTS                    *)
  10. (*                                                                      *)
  11. (*                           FOR THE CRT UNIT                           *)
  12. (*                                                                      *)
  13. (************************************************************************)
  14.  
  15.  
  16. INTERFACE
  17.  
  18. Type
  19.       Pages         = ( FIRST,SECOND,THIRD,  FOURTH,
  20.                         FIFTH,SIXTH, SEVENTH,EIGHTH );
  21.  
  22. Const
  23.  
  24.       WowVer        = '1.01';
  25.  
  26.       ScreenSize    : word = 2000;
  27.  
  28.       LastPage      : pages = First;
  29.  
  30.       TextAttr      : byte = $07;
  31.  
  32.  
  33. {****************************************** CRT FUNCTIONS SUPPORTED }
  34.  
  35. { TIME  }
  36.  
  37.       Procedure Delay               ( Ms: word);
  38.  
  39.  
  40. { SOUND }
  41.  
  42.       Procedure Sound               ( Hz: word);
  43.  
  44.       Procedure NoSound             ;
  45.  
  46. { VIDEO }
  47.  
  48.  
  49.       Procedure ClrScr              ;
  50.  
  51.       Procedure GoToXY(X,Y: byte);
  52.  
  53.  
  54. {********************************************** NEW FUNCTIONS ADDED }
  55.  
  56. { TIME  }
  57.  
  58.       Function  ElaspedTime         ( StartTime: word)
  59.                                     : real;
  60.  
  61.       Procedure Pause               ( Seconds: word);
  62.  
  63.       Function  TimeStamp           : word;
  64.  
  65.  
  66. { SOUND }
  67.  
  68.       Procedure Beep                ;
  69.  
  70.  
  71. { VIDEO }
  72.  
  73.       Procedure Cls                 ;
  74.  
  75.       Procedure Writechar           ( Ch: char; Num: word);
  76.  
  77. { KEY }
  78.  
  79.       Procedure Wait                ;  { works just like KeyPressed }